﻿Module Module1
  Sub Main()

    Dim sexA As String = "F"
    Dim sexB As String = "M"

    If (sexA = "F" And sexB = "M") Or
       (sexA = "M" And sexB = "F") Then
      Console.WriteLine("OK")
    Else
      Console.WriteLine("KO")
    End If
    Console.ReadLine()
  End Sub

End Module
